home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 12 C64 Telecom / NUTERM.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.5 KB  |  35 lines
  1. 10 POKE56,160:POKE644,160:CLR:GOTO2020
  2. 20 PRINT"[147]";CHR$(142);
  3. 25 PRINT"WILL A SEQUENTIAL TEXT FILE"
  4. 26 A$="":INPUT"BE SAVED TO DISK (Y/N)";A$:IFA$="N"GOTO40
  5. 28 IFA$<>"Y"GOTO25
  6. 30 F$="":PRINT"ENTER FILENAME."
  7. 31 PRINT:INPUTF$:IFF$=""THEN30
  8. 32 FF$="@0:"+F$+",W"
  9. 35 OPEN8,8,8,FF$
  10. 40 INPUT"BAUD RATE 1200 OR 300 (H/L)";A$:IFA$<>"H"ANDA$<>"L"GOTO40
  11. 42 C$=CHR$(6)+CHR$(0)
  12. 43 IFA$="H"THENC$=CHR$(0)+CHR$(0)+CHR$(60)+CHR$(1)
  13. 45 PRINT"[147]PRESS F1 FOR TERMINAL MODE."
  14. 50 PRINT"PRESS F8 TO EXIT."
  15. 55 PRINT"WHILE IN TERMINAL MODE,"
  16. 60 PRINT"PRESS F3 FOR MENU MODE."
  17. 65 PRINT"PRESS F5 FOR SAVE TO DISK ON."
  18. 70 PRINT"PRESS F7 FOR SAVE TO DISK OFF."
  19. 75 GETA$:IFA$=CHR$(133)GOTO90
  20. 80 IFA$=CHR$(140)THENCLOSE8:END
  21. 85 GOTO75
  22. 90 OPEN2,2,2,C$
  23. 95 F2$="ATX2DT5555555"+CHR$(13)
  24. 100 F4$="99999,9999"+CHR$(13)
  25. 105 F6$="NUMBER/MODEM"+CHR$(13)
  26. 110 PRINTCHR$(14)
  27. 115 POKE631,65:POKE632,84:POKE633,90:POKE634,13:POKE198,4
  28. 120 PRINT"[147]";:POKE1184,100:SYS49652:SYS49152:CLR:GOTO20
  29. 2020 PRINT"[147]ONE MOMENT PLEASE..."
  30. 2025 S=PEEK(45)+256*PEEK(46)-1
  31. 2030 IFPEEK(S)THENS=S-1:GOTO2030
  32. 2035 S=S-514
  33. 2040 FORI=0TO514:POKEI+49152,PEEK(I+S):NEXT
  34. 2045 POKE2073,48:GOTO20
  35.